home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d10 / pitstop.arc / PRTINFO.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1991-06-01  |  1.5 KB  |  60 lines
  1. 100  DIM C$(500): DIM S$(500):DIM CM(500)
  2. 110  DIM T(100)
  3. 120  DIM I(100): DIM J(100)
  4. 130  'Test for Discity1
  5. 140  CLS
  6. 150  OPEN "I",#1,"overview.dat"
  7. 160  INPUT #1,CS$,SS$,CD$,SD$
  8. 170  CLOSE #1
  9. 180  OPEN "I",#1,"Carry.dat"
  10. 190  INPUT #1,A$,B$,C$,D$,DAY,SM,ED,ML,T,HT,TM,DM,CM
  11. 200  CLOSE #1
  12. 210  OPEN "I",#1,"Route.dat"
  13. 220  INPUT #1,A$,B$,C$,D$,HF,HT,S
  14. 230  CLOSE #1
  15. 240  LPRINT "Your starting point was ";CS$;", ";SS$
  16. 250  LPRINT TAB(10);"Your destination was ";CD$;", ";SD$
  17. 260  LPRINT TAB(10);"It will take";DAY;" days for your trip"
  18. 270  LPRINT TAB(10);"Your total trip mileage will be";TM
  19. 280  I = 1
  20. 290  OPEN "I",#1,"fuel.dat"
  21. 300  WHILE NOT EOF(1)
  22. 310   INPUT #1,C$(I),S$(I),CM(I)
  23. 320  I = I+ 1
  24. 330  WEND
  25. 340  CLOSE #1
  26. 350  LPRINT "You will refuel as follows"
  27. 360  LPRINT "City"; TAB(20);"State"; TAB(30);"Miles on tank"
  28. 370  FOR J = 1 TO I-1
  29. 380  LPRINT TAB(2); C$(J); TAB(22);S$(J); TAB(30); CM(J)
  30. 390  NEXT J
  31. 400  I = 1
  32. 410  OPEN "I",#1,"Sleep.dat"
  33. 420  WHILE NOT EOF(1)
  34. 430   INPUT #1,DAY(I),TR(I),C$(I),S$(I),ED(I)
  35. 440   I = I+1
  36. 450  WEND
  37. 460  CLOSE #1
  38. 470  LPRINT "You will need stop for sleep as follows:"
  39. 480  LPRINT TAB(2); "Day #"; TAB(12); "Hours drive"; TAB(25);"City";TAB(50);"State";TAB(60);"Miles driven"
  40. 490  FOR J = 1 TO I-1
  41. 500  TR(J) = INT(TR(J)+0.5)
  42. 510  LPRINT TAB(2);DAY(J);TAB(15);TR(J); TAB(27);C$(J);
  43. 520  LPRINT TAB(50); S$(J); TAB(60); ED(J)
  44. 530  NEXT J
  45. 540  'Route info
  46. 550  OPEN "I",#1,"Route.dat"
  47. 560  K = 1
  48. 570  WHILE NOT EOF(1)
  49. 580  INPUT #1,CS$(K),SS$(K),CD$(K),SD$(K),HF(K),HT(K),SM(K)
  50. 590  K= K+1
  51. 600  WEND
  52. 610  LINT "Your route is as follows"
  53. 620  LPRINT TAB(2);"Starting at";TAB(20);"Highway";TAB(30);"Ending at";TAB(50);"Highway"
  54. 630  FOR W = 1 TO K-1
  55. 640  LPRINT TAB(2);CS$(W);", ";SS$(W); TAB(25);HF(W);TAB(32);CD$(W);", ";SD$(W)
  56. 650  LPRINT TAB(55); HT(W)
  57. 660  NEXT W
  58. 670  CLOSE
  59. 680  CHAIN "pitstop",200
  60.